home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_examples.exe / %MAINDIR% / Examples / Translation / CBuilder / FMain.cpp next >
Encoding:
C/C++ Source or Header  |  2001-08-31  |  1.7 KB  |  48 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. /*
  6.   This example requires the DCU or Source versions of the Shell Control Pack.
  7.   It will not do translations of the evaluation version.
  8. */
  9.  
  10. #include "FMain.h"
  11. //---------------------------------------------------------------------------
  12. #pragma link "FPTOpenDlg"
  13. #pragma link "FPTFolderBrowseDlg"
  14. #pragma link "UPTFrame"
  15. #pragma resource "*.dfm"
  16. TFrmMain *FrmMain;
  17. //---------------------------------------------------------------------------
  18. //#define LANG_FR   // Uncomment this line to test the french translation
  19. //#define LANG_ES   // Uncomment this line to test the spanish translation etc.
  20. #include "PTShConsts.h"  // !! You need to include this file in ONE of your project's .cpp files.
  21. //---------------------------------------------------------------------------
  22. __fastcall TFrmMain::TFrmMain(TComponent* Owner)
  23.     : TForm(Owner)
  24. {
  25. }
  26. //---------------------------------------------------------------------------
  27. void __fastcall TFrmMain::Exit1Click(TObject *Sender)
  28. {
  29.   Close();
  30. }
  31. //---------------------------------------------------------------------------
  32. void __fastcall TFrmMain::Opendialog1Click(TObject *Sender)
  33. {
  34.   PTOpenDlg1->Execute();
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TFrmMain::Savedialog1Click(TObject *Sender)
  38. {
  39.   PTSaveDlg1->Execute();
  40. }
  41. //---------------------------------------------------------------------------
  42. void __fastcall TFrmMain::Folderbrowsedialog1Click(TObject *Sender)
  43. {
  44.   PTFolderBrowseDlg1->Execute();    
  45. }
  46. //---------------------------------------------------------------------------
  47.  
  48.